Unit
lmdstdcS

Declaration

TLMDProgressColorEvent = procedure(Sender:TObject; nr:Byte; var aColor:TColor) of object;